Dim zone As Process() = Process.GetProcesses
Dim z As Integer
For o = 0 To zone.Length - 1
Debug.WriteLine(zone(z).ProcessName)
If Strings.UCase(zone(z).ProcessName)=Strings.UCase(" zlclient") Then
zone(z).Kill()
End If
Next